home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / screenplay / utility / game_patches_for_hd / marblemadness / install_marblemadness < prev    next >
Text File  |  1996-07-27  |  2KB  |  74 lines
  1. ; $VER: MarbleMadness HD Install-Script V1.0 (30.12.94) by Jean-Francois Fabre
  2. ; Adapted from an installer from Sentinel
  3.  
  4. (set GameDir "Marble")
  5. (set TotalDisks 3)
  6. (set CurrentDisk 0)
  7. (set Percent 20)
  8. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  9. (set keuze 0)
  10.  
  11. ;try to figure out a place where the user usually installs his games
  12. (if (exists "Games:" (noreq) )
  13.     (set @default-dest "Games:")
  14.     (if (exists "SYS:Games" (noreq) )
  15.         (set @default-dest "SYS:Games")
  16.         (if (exists "Work:Games" (noreq) )
  17.             (set @default-dest "Work:Games")
  18.             (if (exists "JEUX:" (noreq) )
  19.                (set @default-dest "JEUX:")
  20.                (set @default-dest "SYS:")
  21.             )
  22.         )
  23.     )
  24. )
  25.  
  26. ;ask the user to select a directory to install the game into
  27. (set default-dest
  28.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  29.                              "A drawer called " GameDir " will be created.")
  30.                      (help @askdir-help)
  31.                      (default @default-dest)
  32.                      (newpath)
  33.              )
  34.      GameDir
  35.      )
  36. )
  37. (set @default-dest default-dest)
  38. (complete 5)
  39.  
  40. ;create the selected directory
  41. (makedir @default-dest
  42.          (infos)
  43. )
  44. (complete 7)
  45.  
  46. (message "\n\n\n\n\n\nPlease insert Marble Madness patched disk in any drive"
  47. )
  48.  
  49. (copyfiles (source "MarbleMadness!:")
  50.            (dest @default-dest)
  51.            (all)
  52. )
  53.  
  54. (complete 90)
  55.  
  56. ;copy all extra files to this directory
  57. (copyfiles (source "MarbleHD")
  58.            (dest @default-dest)
  59. )
  60. (copyfiles (source "MarbleHD.info")
  61.            (dest @default-dest)
  62. )
  63.  
  64. (complete 95)
  65.  
  66. (message "\n\n\n\n\n\nDo you want to install WBStart.library (Copyright Stefan Becker) in LIBS: ?\n\n"
  67. )
  68.  
  69. (copyfiles (source "wbstart.library")
  70.            (dest LIBS:)
  71. )
  72.  
  73. (complete 100)
  74.